home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMIN2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  2KB  |  57 lines
  1. Program DemoInputTwo;
  2. {DEMIN2}
  3.  
  4. Uses CRT,
  5.      totINPUT, totFAST;
  6.  
  7. begin                 
  8.    with Screen do
  9.    begin
  10.        Clear(31,' ');
  11.        PartClear(1,23,80,25,94,' ');
  12.        WritePlain(10,5,'Press Num, Scroll, Caps Lock, or hold down the Alt,');
  13.        WritePlain(10,6,'Ctrl, Left/Right Shift keys. The active keys will be');
  14.        WritePlain(10,7,'display at the foot of the display.');
  15.        WritePlain(10,9,'Any other key quits.');
  16.        with Key do
  17.        begin
  18.           SetCaps(true);
  19.           SetNum(true);
  20.           SetScroll(true);
  21.           repeat
  22.              if GetCaps then
  23.                 WritePlain(40,24,'CAPS')
  24.              else
  25.                 WritePlain(40,24,'    ');
  26.              if GetNum then
  27.                 WritePlain(45,24,'NUM')
  28.              else
  29.                 WritePlain(45,24,'   ');
  30.              if GetScroll then
  31.                 WritePlain(50,24,'SCROLL')
  32.              else
  33.                 WritePlain(50,24,'      ');
  34.              if AltPressed then
  35.                 WritePlain(60,24,'Alt')
  36.              else
  37.                 WritePlain(60,24,'   ');
  38.              if CtrlPressed then
  39.                 WritePlain(65,24,'Ctrl')
  40.              else
  41.                 WritePlain(65,24,'    ');
  42.              if LeftShiftPressed then
  43.                 WritePlain(70,24,'L-')
  44.              else
  45.                 WritePlain(70,24,'   ');
  46.              if RightShiftPressed then
  47.                 WritePlain(75,24,'R-')
  48.              else
  49.                 WritePlain(75,24,'   ');
  50.           until KeyPressed;
  51.           SetCaps(false);
  52.           SetNum(false);
  53.           SetScroll(false);
  54.        end;
  55.    end;
  56. end.
  57.